home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_ex_vdiescap.def < prev    next >
Text File  |  1988-04-24  |  4KB  |  215 lines
  1. DEFINITION MODULE VDIEscapes;
  2.  
  3.  
  4. FROM GEMVDIbase IMPORT PxyArrayType, FilmNameType, FilmIndexType;
  5.  
  6.  
  7. (* escapes *)
  8.  
  9. PROCEDURE InquireCharCells (Handle: INTEGER;
  10.                             VAR rows, colums: INTEGER);
  11.  
  12. (* inquire addressable character cells *)
  13.  
  14.  
  15. PROCEDURE ExitAlphaMode (Handle: INTEGER);
  16.  
  17. (* Exit alpha mode *)
  18.  
  19.  
  20. PROCEDURE EnterAlphaMode (Handle: INTEGER);
  21.  
  22. (* enter alpha mode *)
  23.  
  24.  
  25. PROCEDURE CursorUp (Handle: INTEGER);
  26.  
  27. (* alpha cursor up *)
  28.  
  29.  
  30. PROCEDURE CursorDown (Handle: INTEGER);
  31.  
  32. (* alpha cursor down *)
  33.  
  34.  
  35. PROCEDURE CursorRight (Handle : INTEGER);
  36.  
  37. (* alpha cursor right *)
  38.  
  39.  
  40. PROCEDURE CursorLeft (Handle: INTEGER);
  41.  
  42. (* alpha cursor left *)
  43.  
  44.  
  45. PROCEDURE CursorHome (Handle: INTEGER);
  46.  
  47. (* home alpha cursor *)
  48.  
  49.  
  50. PROCEDURE EraseToEOS (Handle: INTEGER);
  51.  
  52. (* erase to end of alpha screen *)
  53.  
  54.  
  55. PROCEDURE EraseToEOL (Handle: INTEGER);
  56.  
  57. (* erase to end of alpha text line *)
  58.  
  59.  
  60. PROCEDURE CursorAddress (Handle, row, column: INTEGER);
  61.  
  62. (* direct alpha cursor address *)
  63.  
  64.  
  65. PROCEDURE OutputText (Handle: INTEGER; VAR string: ARRAY OF CHAR);
  66.  
  67. (* output cursor addressable alpha text *)
  68.  
  69.  
  70. PROCEDURE ReverseVideoOn (Handle: INTEGER);
  71.  
  72. (* reverse video on *)
  73.  
  74.  
  75. PROCEDURE ReverseVideoOff (Handle: INTEGER);
  76.  
  77. (* reverse video off *)
  78.  
  79.  
  80. PROCEDURE InquireCursorAddress (Handle: INTEGER; VAR row, column: INTEGER);
  81.  
  82. (* inquire current alpha cursor address *)
  83.  
  84.  
  85. PROCEDURE InquireTabletStatus (Handle: INTEGER): INTEGER;
  86.  
  87. (* inquire tablet status *)
  88.  
  89.  
  90. PROCEDURE HardCopy (Handle: INTEGER);
  91.  
  92. (* hard copy *)
  93.  
  94.  
  95. PROCEDURE DisplayCursor (Handle, x, y: INTEGER);
  96.  
  97. (* place graphic cursor at location *)
  98.  
  99.  
  100. PROCEDURE RemoveCursor (Handle: INTEGER);
  101.  
  102. (* remove last graphic cursor *)
  103.  
  104.  
  105. PROCEDURE FormAdvance (Handle: INTEGER);
  106.  
  107. (* form advance *)
  108.  
  109.  
  110. PROCEDURE OutputWindow (Handle: INTEGER; xyArray: PxyArrayType);
  111.  
  112. (* output window *)
  113.  
  114.  
  115. PROCEDURE ClearDisplayList (Handle: INTEGER);
  116.  
  117. (* clear display list *)
  118.  
  119.  
  120. PROCEDURE OutputBitImageFile (Handle: INTEGER;
  121.                               VAR FileName: ARRAY OF CHAR;
  122.                                   aspect, scaling, numPts: INTEGER;
  123.                               VAR xyArray: PxyArrayType);
  124.  
  125. (* output bit image file *)
  126.  
  127. (* noch nicht implementiert *)
  128.  
  129.  
  130.  
  131. PROCEDURE SelectPalette (Handle, palette: INTEGER): INTEGER;
  132.  
  133. (* select palette *)
  134.  
  135. (* noch nicht implementiert *)
  136.  
  137.  
  138.  
  139. PROCEDURE InquirePaletteFilms (Handle: INTEGER;
  140.                                VAR filmNames: FilmNameType);
  141.  
  142. (* inquire palette film types *)
  143.  
  144. (* noch nicht implementiert *)
  145.  
  146.  
  147.  
  148. PROCEDURE InquirePaletteState (Handle: INTEGER;
  149.                                VAR port, filmName, 
  150.                                    lightness,interlace,planes: INTEGER;
  151.                                VAR indexes: FilmIndexType);
  152.  
  153. (* inquire palette driver state *)
  154.  
  155. (* noch nicht implementiert *)
  156.  
  157.  
  158.  
  159. PROCEDURE SetPaletteState (Handle, port, filmNum,
  160.                                lightness, interlace, planes: INTEGER;
  161.                            VAR indexes: FilmIndexType);
  162.  
  163. (* set palette driver state *)
  164.  
  165.  
  166. PROCEDURE SavePaletteState (Handle: INTEGER);
  167.  
  168. (* save palette driver state *)
  169.  
  170. (* noch nicht implementiert *)
  171.  
  172.  
  173.  
  174. PROCEDURE SuppressPaletteMessages (Handle: INTEGER);
  175.  
  176. (* suppress palette messages *)
  177.  
  178. (* noch nicht implementiert *)
  179.  
  180.  
  181.  
  182. PROCEDURE PaletteErrorInquire (Handle: INTEGER): INTEGER;
  183.  
  184. (* palette error inquire *)
  185.  
  186. (* noch nicht implementiert *)
  187.  
  188.  
  189.  
  190. PROCEDURE UpdateMetafileExtents (Handle, minX, minY, maxX, maxY: INTEGER);
  191.  
  192. (* update metafile extents *)
  193.  
  194.  
  195. PROCEDURE WriteMetafile (Handle, numIntin: INTEGER;
  196.                          VAR intIn: ARRAY OF INTEGER;
  197.                              numPtsin: INTEGER;
  198.                          VAR ptsIn: ARRAY OF INTEGER);
  199.  
  200. (* write metafile item *)
  201.  
  202. (* noch nicht implementiert *)
  203.  
  204.  
  205.  
  206. PROCEDURE ChangeFileName (Handle: INTEGER; VAR fileName: ARRAY OF CHAR);
  207.  
  208. (* change gem vdi filename *)
  209.  
  210. (* noch nicht implementiert *)
  211.  
  212.  
  213.  
  214. END VDIEscapes.
  215.